home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / MODULES / LESSON01 / ACT01B / L01B2.DIR / scripts.cst_11.ls < prev    next >
Encoding:
Text File  |  2003-06-26  |  571 b   |  27 lines
  1. on mouseDown
  2.   whichSprite = the clickOn
  3.   puppetSprite(17, 1)
  4.   puppetSprite(18, 1)
  5.   set the ink of sprite 17 to 8
  6.   set the ink of sprite 18 to 8
  7.   updateStage()
  8.   repeat while the stillDown
  9.     if rollover(whichSprite) then
  10.       set the ink of sprite whichSprite to 4
  11.     else
  12.       set the ink of sprite whichSprite to 8
  13.     end if
  14.     updateStage()
  15.   end repeat
  16.   puppetSprite(17, 0)
  17.   puppetSprite(18, 0)
  18.   updateStage()
  19.   if rollover(whichSprite) then
  20.     if whichSprite = 17 then
  21.       go(1, "L01B3")
  22.     else
  23.       go("dance", "L01B4")
  24.     end if
  25.   end if
  26. end
  27.